home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / xcmd_eff.sit / Effect XCMD / card_4837.txt < prev    next >
Text File  |  1988-01-25  |  955b  |  34 lines
  1. -- card: 4837 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2583
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 2004
  11. -- rect: left=11 top=91 right=325 bottom=504
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: 
  20.  
  21.  
  22. -- part contents for card part 1
  23. ----- text -----
  24. Here is an approximate equivalent of EFFECT in HyperTalk, so you'll understand what it is doing.
  25.  
  26. on effect what
  27.     put card field what of card "Effects card" into theSource
  28.     repeat with i is 1 to the number of lines in theSource
  29.         get line i of theSource
  30.         do it
  31.     end repeat
  32. end effect
  33.  
  34. Actually, the XCMD does a bit more-- it ignores blank lines, and also removes leading spaces and checks for "--" before a lineΓÇö otherwise, Hypercard would generate an error message "Can't understand end of line."